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horizontais verticais 

AT 20,C; AT C,20;‘W’ 

verticais horizontais 

ATL.30; AT20,L;“B” 

12*SIN X 12*COS X 

12*SIN X 12*COS X 

60 NEXTN 

10 FOR N=20 TO 45 10 FOR N=20 TO 30 


70 PLOT N,45 

100 NEXT N 
50 LET X=24 


30 PLOT45,N 
70 PLOT N,30 
50 FOR N : 20 TO 45 
100 NEXT X 
50 LET N=24 
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UMA INTRODUÇÃO 
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INTRODUÇÃO 


Como já dizia aquele velho provérbio chinês: “Melhor do que dar 
um peixe a quem tem fome, é ensinar-lhe a pescar”. 

Por mais ilustrações e desenhos que este livro tivesse, certa¬ 
mente você ainda poderia querer algo diferente. O melhor mes¬ 
mo é passar todas as informações de como desenhar no vídeo do 
micro, restringindo as figuras de exemplos a cerca de trezentas. 

É bom ter sempre em mente as limitações da máquina para evitar 
decepções futuras. Não será possível desenhar imagens com 
mais resolução do que o vídeo do sistema. Aqui usaremos até 24 
linhas de 32 caracteres sendoque cada posição do vídeo no mo¬ 
do gráfico pode ser subdividida em 4 simulando um total de 3.072 
posições. 

Pode-se ainda obter uma resolução de 768X8X8 pontos no vídeo, 
porque cada caractere é formado por oito pontos em 8 linhas de 
TV, resultando em 49.152 pontos. Isto requer a alteração do hard 
ware, será de processamento lento, além de consumir uma quan¬ 
tidade de memória de que o sistema não dispõe. E por isto não se¬ 
rá alvo deste volume. 

Tendo apenas 3.072 posições de vídeo, devemos considerar que: 

1. Não poderemos representar com precisão imagens com gran¬ 
de número de formas, pelo menos, não de uma só vez. 

2. Fotografias e outras imagens com meios-tons são mais difíceis 
de representar que desenhos a nanquim, como por exemplo; per¬ 
sonagens de estórias em quadrinhos. 

3. Quanto mais linhas de uma tela forem usadas, mais memória 
de “vídeo” para o vídeo será usada. 
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Não é aconselhável tentar criar movimentos em grandes imagens 
a partir da memorização de diferentes imagens, como em dese¬ 
nho animado e sim por alteração da imagem memorizada. 

Não, pelo menos em Basic. Por isto oferecemos o programa 
ENTER GRAPHICS em uma versão na linguagem da máquina 
com a opção de animação. Funciona pela cópia instantânea das 

12 imagens da área das variáveis para o vídeo, simulando A ORGANIZACÃO DA MEMÓRIA 

movimento. Veja o exemplo da página 69. 


O microprocessador Z80 dos micros Sinclair possue 16 linhas 
(binárias) de endereços podendo identificar 65536 (de 0 a65535) 
posições de memória (de 8 bits cada). Bit é apenas abreviatura de 
Binary digiT, i. e., digito binário. 

Segundo critérios do construtor, a memória dos computadores 
Sinclair foi distribuída como a seguir: 


ENDEREÇO 

UTILIZAÇÃO 

00 000 

sistema operacional (8KROM) 

08 192 

reserva para sistema operacional 

16 384 

variáveis do sistema operacional (RAM) 

16 509 

programa do usuário 

(D. File) 

vídeo 

(Vars.) 

variáveis do programa do usuário 

(E. Line) 

linha em edição 

(StkBot) 

stack do calculador 

(StkEnd) 

área livre 

(SP) 

stack da máquina 

(ErrSP) 

stack para endereços de sub-rotinas 

(RamTop) 

último endereço da memória em uso 


Os endereços da tabela acima que não estão definidos, é porque 
apresentam-se em posições variáveis da memória devido às alte¬ 
rações do número de bytes de memória usada em cada uma des¬ 
tas áreas. 

A ROM está nos endereços de 00 000 a 08 191. 

A RAM está nos endereços de 16 384 em diante. 
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Como foi mencionado acima, a área da memória destinada ao 
usuário, situa-se nos endereços 16 509 em diante, existindo, após 
a mesma, uma série de outras áreas reservadas para diferentes 
propósitos. Estas áreas apresentam-se com comprimento ou 
consumo de memória variável. Suas posições na memória variam 
em função das variações de comprimento do programa em 
Basic, da RAM instalada, etc... 

O endereço de início de cada uma destas áreas é arquivado pelo 
programa monitor (da ROM) na RAM do usuário nos endereços 
16 384 a 16 508 e são as denominadas variáveis do sistema opera¬ 
cional. Não confundir com sistema de variáveis (do usuário). 

Os endereços em que se encontram estas variáveis estão descri¬ 
tos no manual do seu equipamento. Citamos abaixo os mais 
usuais. 

(D. File) (16 396) 

(Vars.) (16 400) 

(E. Line) (16 404) 

(RamTop) (16 389) 

Todas as variáveis do sistema mencionadas neste capítulo ocu¬ 
pam 2 bytes. Para se ler um valor armazenado em dois bytes usa- 
se a regra: 

PRINT PEEK E+256*PEEK(E+1) onde E é o endereço dado. 

Para entender por q ue o valor do segundo byte é multiplicado por 
256 leia o capítulo BINÁRIO E HEXADECIMAL do livro CÓDIGO 
DE MÁQUINA PARA TK E CP 200 até a página 16 onde se lê: 
“A razão: é a diferença dos índices das potenciais do 2° byte”. 
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A MEMÓRIA DO VÍDEO 


Denominada pelos projetistas da máquina de D. File (Display Fi¬ 
le), a memória do vídeo não se encontra em endereços fixos e sim 
flutuando no topo da memória usada para o sistema de variáveis 
e programa. Usa a RAM do usuário. 

O vídeo com 24 linhas de 32 caracteres correspondem a 24X 33 
bytes na memória do vídeo. Uma linha ocupa 33 bytes, sendo 32 
caracteres e 1 para o término da linha (New Line ou Enter). 

Cada caractere da tela ocupa um determinado byte na memória. 

Os endereços da memória de vídeo variam de tempos em tempos, 
por questões de FIRMWARE. O endereço de início, ou do primei¬ 
ro byte da memória do vídeo (D. File) é dado pela variável do sis¬ 
tema D. File, endereços 16 396 e 16 397. 

O D. File começa com o primeiro byte em valor 118 (New Line) e 
também termina por 118. 


O programa, a seguir, lê os 32 primeiros bytes da memória do ví¬ 
deo e inverte os caracteres, acrescentando 128 aos seus códigos. 
Rode preferivelmente em SLOW: 

10 LET DFILE = PEEK 16396+256*PEEK 16397 
20 PRINT “QUALQUER COISA” 

30 REM INVERTER UMA LINHA DO VÍDEO 
40 FOR N=1 TO 32 
50 LETX=PEEK (D FILE + N) 

60 IF XOH8 THEN POKE D FILE+N, X+128 
70 NEXTN 
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A posição de impressão, ou endereço da memória de vídeo onde 
a próxima impressão será executada, pode ser identificada pela 
variável do sistema denominada PRINT POSITION ou CC, COR- 
RENT CARACTER, endereço 16398. 

As duas linhas inferiores do vídeo são reservadas para edição e 
inputs, mas podem ser usadas, desde que se altere a variável do 
sistema do endereço 16418, cujo valor é habitualmente dois. Esta 
alteração, por POKE16418,0, por exemplo, não funciona como 
comando direto, somente como linha de programa. Experimen¬ 
te: 

10 POKE 16418, 0 
20 FOR N=0 TO 23 
30 PRINT AT N, N; “OK” 

40 NEXT N 

Atenção: A variável do endereço 16418 deve voltar ao valor 2 ou 
mais, antes de qualquer instrução INPUT ou o programa será 
“destruído”. 


PLOT E UNPLOT 


O Basic em 8KROM do Sinclair ZX81, TK 82,83,85, CP200, etc..., 
possui os comandos gráficos PLOT e UNPLOT. Considerando 
que o vídeo da máquina possui as posições representadas abaixo 
por quadrinhos (pixel), podemos assinalar ou apagar, qualquer 
um deles, desde que conhecidas as suas coordenadas (localiza¬ 
ção horizontal e vertical). 

Cada quadrinho ou pixel possui sua localização horizontal nu¬ 
merada de 0 a 63 e vertical de 0 a 43. 


PLOT difere de PRINT AT por várias razões. Entre elas: 

1. PLOT não requer e não permite a especificação do caractere a 
ser assinalado por utilizar-se de 1/4 do inverse space. 

2. Existem duas vezes mais posições de PLOT na horizontal e na 
vertical resultando em quatro vezes mais resolução do que 

com PRINT. .. . 

3. A localização das linhas de PLOT é o inverso de PRINT. Veja 


43 

li 

PLOT 


0 


63 
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As posições foram numeradas de baixo para cima ao invés de 
cima para baixo para facilitar a construção de gráficos e seus ei¬ 
xos. 

A numeração das colunas se fez da esquerda para a direita assim 
como com PRINT AT. 



Experimente como comando direto, sem número de linha. 

PLOT 0,0 
PLOT 0,43 
PLOT 63,0 
PLOT 63,43 

RELEMBRANDO: 

PLOT L,C linha coluna 
Use PLOT L,C evita confusões. 

PRINT e PRINT AT 


Se você chegou até aqui sem conhecer bem PRINT e PRINT AT 
estamos mal. Leia no manual da sua máquina a descrição de fun¬ 
cionamento de PRINT e PRINT AT e releia este capítulo desde o 
início. 

Não descrevemos aqui apenas para não “reinventar a roda ou o ja 
inventado”. 


TRAÇANDO LINHAS E CÍRCULOS 


Nas horizontais e verticais não há qualquer mistério, nem gran¬ 
des possibilidades quer com PLOT ou PRINT AT. 

Quanto às linhas diagonais no vídeo Sinclair “alguns experts” 
criaram ou copiaram equações que não tem muitas soluções ou 
opções, senão vejamos: 

UNHAS DIAGONAIS 

As diagonais podem ser traçadas a partir de “horizontais deslo¬ 
cadas uma ou mais posições na vertical para cada posição de im¬ 
pressão deslocada na horizontal ou vice versa. O programa a se¬ 
guir ilustra esta proposição: 

10 SLOW 
20 LET L=0 
30 LET C=32 
40 PLOT C,L 
50 LET L=L+1 
70 GOTO 40 

Este programa como está gera uma linha vertical. Acrescente: 
60 LET Q=C+1 ou 60 LET CC-1 

que produzirá uma linha diagonal de + 45° ou -45°. Experimen¬ 
te: 

60 LET C=C+1.5 
60 LET C=C+2 
60 LET OC+3 
etc... 

Para abrir a área remanescente do vídeo volte para 
60 LET C=C+1 
e altere também 


16 


17 



50 LET L=L+2 ou LET L=L+3 
etc..., ou ainda use 

60 LET C=C-1 ou 60 LET OC-2 etc... 

Para trabalhar a partir de uma horizontal basta inverter a linha 40 
para: 

40 PLOT LC 

Para ajustá- la ao centro da tela use 
30 LET 021 

Para traçar diagonais com PRINT AT ou qualquer outro caracter- 1 
re o princípio é o mesmo. Basta alterar 

40 PRINT AT C,L; ou 40 PRINT AT L,C; 

e centrar a linha por 

30 LET OI ou 30 LET LET 016 


LINHAS HORIZONTAIS 

Escolhe-se qual a linha a ser traçada, de 0 a 43 para PLOT oudeO 
a 21 para PRINT AT. Escolhemos a 20. 

10 FOR OO TO 63 
20 PLOT 20,C 
30 NEXT C 

Ou entào 

10 FOR 0=0 TO 20 
20 PRINT AT 20,C; 

30 NEXT C 

LINHAS VERTICAIS 

Escolhe-se qual a coluna a ser usada, de 0 a 63 para 
PLOT ou de 0 a 31 para PRINT AT. 

Escolhemos a 30. 


10 FOR L=0 TO 63 
20 PLOT L,30 
30 NEXT L 

Ou então com PRINT AT 

10 FOR L=0 TO 31 
20 PRINT AT L,30; 
30 NEXT L 


CÍRCULOS 

Os círculos podem ser facilmente desenhados com o uso das 
funções trigonométricas SEN e COS. Devido à pequena precisão 
do vídeo, os círculos ficam melhores, se apenas tracejados como 
com esta rotina: 

10 FOR F*1 TO 60 
20 LET X=F/5*PI 
30 LET A=21+6*SIN X 
40 LET B=22+6*COS X 
50 PLOT A,B 
60 NEXT F 

O número de pontos por círculo é de 12, conforme a listagem da¬ 
da. Para alterá-la para 20, insira: 

20 LET X=F/10*PI 

Para alterar o diâmetro do círculo para o dobro por exemplo, alte¬ 
re: 

30 LET A=21 + 12*SIN X 
40 LET B=21 + 12*SIN X 
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FIGURAS GEOMÉTRICAS 


Figuras e formas geométricas podem ser desenhadas por pro¬ 
gramação com muito mais facilidades do que se entradas ponto a 
ponto da tela. A seguir alguns exemplos: 

1. CÍRCULOS 

Devido à pequena precisão do vídeo, os círculos ficam melhores 
se apenas tracejados como com esta rotina que utiliza as funções 
SIN e COS: 

10 FOR F=1 TO 60 
20 LET X= F/5*PI 
30 LET A=21 +6*SIN X 
40 LET B=22+6*COS X 
50 PLT A,B 
60 NEXT F 

O número de pontos por círculo é de 12, conforme a listagem aci¬ 
ma. Para alterá-lo para 20, insirá: 

20 LET=F/10*PI 

Para alterar o diâmetro do círculo para o dobro por exemplo, alte¬ 
re: 

30 LET A=21 + 12 * SIN X 
40 LET B=21 +12 * SIN X 

2. QUADRADO 

10 FOR N=20 TO 30 
20 PLOT 19,N 
30 PLOT N,20 
40 PLOT 30,N 


50 PLOT N,30 

Para alterar o tamanho, alterar os valores 20 e 30. 

Observar que a impressora TS 2040 deforma os caracteres ligei¬ 
ramente, quanto ao formato quadrado apresentado no vídeo. Ou 
seja: um quadrado no vídeo pode resultar em um retângulo na 
impressora TS 2040, porque se cada um dos caracteres é alonga¬ 
do, a imagem toda o será também. 

3. RETÂNGULO 
Em pé: 

10 FOR N= 20 TO 40 
20 PLOT 20,N 
30 PLOT 30,N 
40 NEXT N 
50 FOR N=20 TO 30 
60 PLOT N,20 
70 PLOT N,40 
80 NEXT N 

Para “deitar” o retângulo do programa anterior, altere nele: 

10 FOR N s 20 TO 45 
70 PLOT N,45 

4. TRIÂNGULO EQUILÁTERO 

10 FOR N=21 TO 37 
20 PLOT N,20 
30 NEXT N 
40 LET K=1 
50 FOR N=20 TO 29 
60 PLOT N,N 
70 PLOT N+9.30-K 
80 LET K=K+1 
90 NEXT N 

5. TRIÂNGULO RETÂNGULO 

10 LET X=16 
20 FOR N=25 TO 51 
30 PLOT N,X 
40 NEXT N 
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50 LET N=24 
60 FOR X=16 TO 25 
70 PLOT 25,X 
80 PLOT 3*N-20,X 
90 LET N=N-1 
100 NEXT N 

6. TRIÂNGULO OBTUSO 

10 LET X=16 
20 FOR N=24 TO 52 
30 PLOT N,X 
40 NEXT N 
50 LET X=24 
60 FOR X=16 TO 30 
70 PLOT N,X 
80 PLOT 3*N-20,X 
90 LET N=N-1 
100 NEXT X 


FIGURAS TRIGONOMÉTRICAS 


As rotinas básicas para traçarem os gráficos das fun¬ 
ções trigonométricas estão nos manuais do equipamentos e em 
outros livros como Dicionário do Basic Sinclaire por isto aprovei¬ 
tamos a oportunidade para apresentar “outras formas” com tri¬ 
gonometria: 

1. ESPIRAL CÔNICA 


A seguir, as figuras produzidas por estes programas. 




jiimniummHH 
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2. FORMA OVAL 



18 REH MICRON 

i_< W a. zz X T' X zz. 0 

30 LET Y = PI*X/50 
40 PRINT AT i0*rCQ5 


I t * * i 

I * 1 " I . 


•■5 C ■ 11 X%v ‘ 5 


t'0 NtX! 



Para diminuir o tamanho, altere: 


4-0§PRINT HT StC0S (Y ) +11,13 

,■ % , -i cr • »* íiw : * 

>. V .1 +1D, :S¥ 

58 NEXT X 
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3. SIN+SIN INV 



4. 1.5SIN+SIN INV 
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Altere 


40 IF 2 


— -1 

— X 


1! 




HEN 

HEN 


L. 


ET Y=X*PI/40 
ET Y=-X*PÍ/40 


5. 2 SIN+2SIN INV 


Altere 


A 


A 


B i 
B 8 
8 8 


*8 

8 


8 1 
8 8 
8 8 


8 
8 8 
8 8 


8 

i 

8 

8 




8 8 


8 8 
8 8 
8 8 
8 8 


8 


8 8 
8 8 


V 




40 

50 


*r i 
X ! 


IP 


=1 \HÈN 
=2 THEM 


L. iiT Y — x +hI / 0 
LET Y = - X * PI/3fl 


FIGURAS SIMÉTRICAS 


Uma infinidade de figuras semelhantes às apresentadas a seguir 
podem ser geradas por um único programa com pouco mais de 
dez linhas. 

O bom efeito visual destas imagens é dado pela sua simetria e 
aleatoriedade. Utilizando-se do gerador de números randômicos 
o programa sorteia uma posição qualquer dentro de 1/4 da tela. 
Esta posição é também marcada em cada uma das outras partes 
de 1/4 da tela, equidistante das bordas dos seus respectivos la¬ 
dos opostos e o resultado é este: 
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O programa utilizado 




O programa anterior trabalha com PRINT'*’. Aseguir propomos 
outro programa similar utilizando PLOT que gera figuras tais co¬ 
mo: 
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O Programa: 
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ENTER GRAPHICS EM BASIC 
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ENTER GRAPHICS EM BASIC 


Este programa visa facilitar a entrada de figuras com 
caracteres gráficos codificados ou entrá-las, desenhando com 
PLOT e UNPLOT ou PRINT com qualquer caractere. Armazena 
até 12 telas completas com 22 linhas. Possibilita alterações futu¬ 
ras, listagem das figuras, dos códigos usados, gravação, além de 
conter um sub-programa para carregar as rotinas em código 
como Merging, Scrool e outras que rodam o vídeo e podem fazer 
o Eduardo Busqueta dançar, a caveira falar ou os tanques e trens 
se moverem, escapando aos seus tiros. 


DIGITANDO OS CARACTERES GRÁFICOS 

Quando aparece uma figura H -W fr J -H identificar ou mesmo sole¬ 
trar os caracteres usados mostra-se algo confuso, pois no exem¬ 
plo dado poderiamos ter difer entes s ím bolos, resultando na mes¬ 
ma figura, como é o caso de fc d W e fiJEfl. 

A identificação e leitura dos caracteres gráficos não é tão simples 
quanto com os alfanuméricos, mas para nossa felicidade Sir Sin¬ 
clair colocou apenas um símbolo gráfico em cada tecla alfanu¬ 
mérica. Por isto basta simplesmente representarmos os caracte¬ 
res gráficos pelas letras e números de suas respectivas teclas. 
Por exemplo: ff | ff j j j i-y ffi , pode ser representado por 
1 2 3 4 5 6 7.” 


Confira no teclado do micro. 

O programa proposto, a seguir, transforma as letras e números 
digitados em seus equivalentes símbolos gráficos, comparando 
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asstrings R$ = " » —, 1P*>Hü" 


Será a mesma coisa que digitar os caracteres gráficos sem preci¬ 
sar usar SHIFT-GRAPHICS, uma vez que as teclas serão as mes¬ 
mas. 


Utilizando-se dos caracteres alfanuméricos para a codificação 
dos gráficos, ficam as seguintes restrições: 


A. Não se poderá usar nas figuras as letras e números que sejam 
“códigos” dos gráficos. Não é o caso de 0,0,X,V, etc... Também 
não serão usáveis o N, o P e o ponto. 


B. Para usar os caracteres alfanuméricos como 0,0,X ou os inver¬ 
sos, eles devem estar incluídos ao final das strings A$ e B$. No 
programa listado as strings estão se m 0000. Para que, ao digitar 0 
saia o inverso e 0 ídem, altere o final de A$ para 03M 
Como.estão, as strings A$ e B$ possuem 22 caracteres. Caso vo¬ 
cê altere o comprimento das mesmas será preciso alterar “o 
comprimento” do looping da linha 865 FOR T=1T026 que faz a 
conversão códigos para gráficos. Igualmente com a linha n° 
420 


C. Com SLOW não se pode digitar SPACE (espaço) diretamente, 
porque esta tecla atua como BREAK. Obtém-se espaço, digitan¬ 
do a tecla ao lado (ponto). 

A tecla BREAK/SPACE atua como Break, quando o micro está 
em RUN e atua como SPACE no modo de edição ou durante 
INPUTS. Na versão SLOW o programa “roda” continuamente em 
um looping de INKEY$, enquanto que na versão FAST é INPUT 
variável. 

O programa conforme está listado requer SLOW, devido o uso de 
INKEY$. 


1 RLM XXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
10 LET K>0 
25 CLS 
27 SLOW 

30 PRINT ,,,,"EDITOR DE VIDEO" 
35 PRINT ,,,,"PARA","DIGITE" 

40 PRINT ,,"APABAR/INICIAR","1 

42 PRINT "ALTERAR/CONT.","2" 

45 PRINT "LISTAR FIGURA","3" 


50 PRINT "LISTAR CODIGOS","4" 
60 PRINT "GRAVAR","5" 

70 PRINT "DESENHAR","6" 

80 INPUT X 

85 IF K-0 AND XOl THEN GOTO 8 

0 

87 IF X=7 OR X=B ÜR X>9 THEN G 
OTO 80 
90 CLS 

95 GOTO X*100 
100 REN INPUT STRING 

102 PRINT "VAI APAGAR 0 ARQUIVO 
.. ? DIGITE 1" 

103 INPUT N* 

104 IF N*<>"1" THEN GOTO 25 
115 CLS 

120 PRINT "ESTE ARQUIVO ACABA D 
E SER DIMEN-SIONADQ PARA 12 IliAG 
ENS DE 22 LI" 

125 PRINT "NHAS COM 32 CARACTER 
ES CADA UNA." 

128 PRINT ,,"PARA ALTERAR DIGIT 
E BREAK E,", "RESCREVA AS LINHAS 
135 A 150." 

130 CLEAR 

F$(12,22,32) 

K» 1 
I ~ 12 p 
C~32 
L 22 * r ^2 
Xt (32) 

K“ 1 

A*»” * —,1 iT^IUhi 


" 12745TEADSPQW6R8Y3 


10 1 2345676901 


162 PRINT ,,"DIGITE UNA TECLA" 

163 LET N*=INKEYS 

164 IF N$="" THEN GOTO 163 

165 CLS 

166 FOR Z=1 TO I 
170 LET N«0 

172 LET N=N+1 

175 IF N-23 THEN GOTO 25 

176 GOSUB 800 

177 PQKE 16418,2 

178 IF X#(1) » M M M THEN GOTO 25 

179 IF X$(1>-"C" THEN GOTO 185 

180 'IF X$(l TO 4) “"COPY" THEN G 
OTO 895 

184 GOSUB 855 


135 

140 

145 

148 

150 

152 

154 

156 


D IN 
LET 
LET 
LET 
LET 
D IN 
LET 
LET 


157 LET 
HGF " 

158 LET 
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185 PRINT AT O+N-l,O;F*(Z,N> 

195 IF N< 23 THEN GOTO 172 

196 CLS 

197 NEXT Z 

198 GOTO 25 
200 REM ALTERA 

202 PRINT “QUAL IMAGEM ALTERA O 
U CONTINUA?" 

204 INPUT Z 

210 PRINT "QUAL LINHA ALTERA OU 
CONTINUA?" 

215 PRINT "DE 1 A ";L;"?" 

217 INPUT N 
220 CLS 

224 PRINT AT 0,0; 

225 FOR X~1 TO n' 

230 PRINT F*(Z,X> 

235 NEXT X 

240 GOTO 176 
245 GQSUB 855 
250 PRINT F*(Z,N> 

260 PAUSE 3E4 
270 GOTO 25 
300 REM LISTA FIGURA 
302 PRINT "QUAL A IMAGEM? DE 1 
A ";I;"?" 

304 INPUT Z 

305 FAST 

306 CLS 

310 FOR N=0 TO 21 

320 PRINT AT N,0;F*(Z,N+1> 

330 NEXT N 
335 SLÜW 

370 LET K£~INKEYT 

377 IF K$«"C" THEN CÜPY 

380 IF KT^"P" THEN GOTO 390 

385 IF K*“"M" THEN GOTO 25 

387 GOTO 370 

390 LET Z«Z+1 

392 GOTO 306 

405 FAST 

4I o PRIN T "QUAL A IMAGEM? ‘• 

420 INPUr Z 
422 CLS 

425 F GR N™1 TO L 
430 FOR B~1 TO C 
432 LET X$-F$<Z,N> 

435 FOR T«1 TO 22 

440 IF XT <B> ~AT<T) THEN PRINT B 
T < T ) ; 

445 NEXT T 
450 NEXT B 
455 PAUSE 200 


459 NEXT N 

460 SLOW 
470 GOTO 370 
500 REM SAVE 

510 PRINT ;; ; ; "ROTljNA P/ SAVE" 
520 PRINT ;;"DIGITE 0 NOME" 

530 INPUT NÍ 

540 PRINT "DIGITE NEW LINE," 
550 PRINT "A SEGUIR LIGUE 0 CAS 
SETTE." 

560 INPUT L$ 

570 SAVE m 
580 GOTO 25 
605 LET ZS="B" 

610 LET Z=1 
615 LET X=0 
620 LET Y=0 
625 LET L*«INKEY* 

630 G ( OSUB 690 

640 IF L*=»f" THEN GOTO 780 
644 IF L$="C" THEN GOTO 700 
650 LET Y=Y+(L$="7 M )-(L$="6") 
655 LET X=X+(L*="8”)-<L$="5") 
660 GOSUB 680 
662 IF X>63 THEN LET X=63 
666 IF Y>43 THEN LET Y=43 
668 PLOT X,Y 

670 IF Z==0 THEN UNPLOT X,Y 
672 GOTO 625 
680 IF X<0 THEN LET X=0 
682 IF Y<0 THEN LET Y=0 
686 RETURN 

690 IF L*«"E M THEN LET Z=1 
692 IF LS«"A" THEN LET Z=>0 
694 RETURN 
705 LET LSa"" 

710 UNPLOT X,Y 
720 LET L$aINKEY$ 

725 GOSUB 690 

735 IF L*a"P" THEN GOTO 625 
737 IF LS="F" THEN GOTO 780 
740 LET X«X+<L*« ,, £">-(L$» M 7 ,, > 
745 LET Y=Y+(LI~"B")-(L$="5"> 
750 GOSUB 680 
755 IF X>31 THEN LET X=31 
760 IF Y>21 THEN LET Y=21 
762 IF Lta"C" OR L*="A“ OR L*=" 
E" OR L$= H P" OR L|s"F" THEN GOTO 
775 

770 IF CODE LT->37 THEN LET Z$=C 
HRt ; ( (CODE L$> +128) 

771 IF LS«"„ M THEN LET Z$=" " 

775 PRINT AT X,Y;Z$ 

776 IF Z=0 THEN PRINT AT X,Y;" 
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778 GOTO 720 

780 FAST 

781 LET L™1 

782 LET DF^PEEK 16396+256*PEEK 
16397 

783 LET W=1 

784 LET C^l 

785 FOR F"1 TO 726 

787 IF C=33 THEN LET L=L+1 

788 IF C-33 THEN LET Oü 

789 IF L-23 THEN GOTO 25 

790 IF (PEEK < DF+F)<>118) THEN 
LET FS- (N,L,C) -CHRT (PEEK <DF+F) ) 

791 LET OC+1 

792 NEXT F 
794 GOTO 25 

800 LET 2í="" 

801 SLOW 

802 POKE 16418,0 

804 PRINT AT 22,0; ‘'í&kMÊimi* " ; Z 

, N; " * {MKKS 4 ' 

806 PRINT AT 23,0;C* 

808 PRINT AT 23,0; 

810 LET K$-INKEY# 

812 IF KS ~"." THEN LET Kí=" " 
815 IF " THEN GOTO 810 

817 IF K$» M N" THEN GOTO 841 

818 IF CODE Kt~í 18 THEN 5 -RETURN 
820 LET Z*=Zí+K# 

825 LET XÍ^Z*' 

835 PRINT K*; 

837 LET YU^RND+RND 

840 GOTO 810 

841 LET LEN=LEN ZT 

842 PRINT AT 23,LEN-1;"B";AT 23 
,LEN—l; 

843 IF LEN Z*>1 THEN LET Z*=Z*< 

1 TO <LEN-1>> 

844 LET X* = ZT 

845 GOTO 837 
855 BEM CONVERTE 
857 FAST 

860 FOR B—1 TO C 
865 FOR T=1 TO 22 
8 7 0 IF X * (B) ™ B * ( f) THE N L. E T F * ( 
Z , N , B ) -A# (T) 

880 NEXT T 
885 NEXT B 
890 RETURN 

895 COPY 

896 LET X#"-" " 

897 PRINT AT 21,0;X* 

898 COPY 

899 GO 10 176 


O MENU 


1- APAGAR INICIAR 

Após digitar e gravar o programa, comece com RUN e opção 1. 
Esta rotina irá apagar todo o arquivo já existente, se houver. Por 
isto, antes é pedida uma confirmação* 

O número de imagens a serem armazenadas está préfixado em 
12, mas pode ser alterado. Quanto maior o número de imagens, 
maior será o consumo de memória e o tempo de gravação. Por 
exemplo: Sem rodar o programa ou após CLEAR, ele ocupa±3 
minutos de gravação. Para 6 imagens±5 minutos e para 12 ima¬ 
gens ±8 minutos. Veja o Enter Graphics em código, opção 5. 

Para alterar o número de imagens para 6 por ex., altere as linhas 

135 DIM Ft <06,22,32) 

145 LET 1=6 


A entrada de cada imagem é feita linha por linha. 
No vídeo aparecerá: 




msm 


0123456789012345 6 7 8 9 01 2 34 5678901 


Impresso nas linhas 22 de 23. Linhas normalmente usadas para o 
cursor (edição e Inputs). Isto é obtido pelo comando da linha 802. 
Se você quiser usar este “truque” em outros programas, observe 
que, antes de qualquer Input, deve-se aplicar o comando da linha 
n° 177. 


A linha que apresenta os números inversos é a linha usada para 
edição. Cada caractere entrado irá aparecer nela, na sua posição. 
Isto é, coluna 0,1,2 e assim por diante. Isto facilita a localização e 
a identificação do caractere em digitação. O término da linha é 
dado por New Line (Enter)e não é preciso completar o final com 
espaços. 

Não use Space ou ocorrerá BREAK. 

Para produzir espaço digite ponto (tecla ao lado do SPACE). 

Para se repetir uma tecla, basta manté-la presa por algum tempo. 

A entrada é feita com o uso de INKEY$. A entrada pode ser mais 
rápida, alterando-se o retardo de tempo da linha 837 LET 
YU=RND**RND para 837 LET YU=RND*RND*RND que não será 
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tão lento quanto RND**RND. 

Caso você digite algum caractere errado, não adianta tentar apa- 
gá-lo por DELETE (Shift-0) ou usar as facilidades de edição como 
cursor left, cursor right, porque não se está em um comando de 
INPUT ou em EDIÇÃO e sim em RUN com o uso de INKEYf. 

Para apagar digite N e o caractere à esquerda será apagado. 
Para corrigir entre a seguir o novo caractere. É só. 

Se o final da linha for espaços, náo é preciso digita-los. Digite 
New Line (Enter)e aguarde. Deverá demorar uns 30 segundos na 
execução da sub-rotina de conversão alfanuméricos X gráficos, 
até que seja impressa a I a linha de símbolos gráficos da figura. 

Para sair desta rotina sem completar as 22 linhas, digite uma li¬ 
nha igual a M (Menu). 

Para pular a linha em edição sem apaga-la ou ter que reescreve- 
la, digite uma linha igual a C (CONT). 

Caso acidentalmente você tenha acionado BREAK, até que se 

acostume usar o ponto como espaço, Não use RUN que apagará 
as variáveis (imagens). USE GOTO 25 que é o menu e continue na 
opção 2. 


RESUMO DOS COMANDOS 


TECLA 


USO OU SIGNIFICADO 


PONTO 

N< 

Space/Break 
M + New Line 
C + New Line 
New Line 

1 2345678QW 
E RTYASD FG H 


Espaço 

Apaga o caractere a esquerda 

Break 

Goto Menu 

Continua na linha seguinte 
Final da linha 

O respectivo símbolo gráfico 
contido na tecla 


2- ALTERAR/CONT 

Quando acionada, esta rotina pede o número da imagem e o nú¬ 
mero da linha a ser alterada ou, de onde se quer continuar. 

A seguir a imagem indicada é listada até a linha indicada, conti¬ 


nuando na rotina de entrada de dados, opção 1 do menu. 
A alteração é feita, reescrevendo-se a linha em questão. Ela será 
impressa exatamente sobre a linha anterior (caso de erro) e a fi¬ 
gura no vídeo ficará também corrigida. 

Nesta rotina tem-se as opções de edição da opção 1, pois conti¬ 
nua naquela. 

3- LISTAR FIGURA 

As figuras são armazenadas na matriz F$(12,22,32). 

São até 12 figuras de 22 linhas com 32 caracteres cada. 

PRINT F$(1,2) imprime a primeira linha da primeira imagem. 
PRINT F$(1,2) imprime a segunda linha da primeira imagem. 
PRINT F$ (2,1) imprime a primeira linha da segunda imagem. 
PRINT F$ (1,1,1) imprime o primeiro caractere da primeira linha 
da primeira imagem. 

Para se executar a impressão de uma imagem completa, com 22 
linhas será preciso o looping a seguir: 

7000 FOR N=1 TO 12 
7010 PRINT F$(1,N) 

7020 NEXT N 

Este exemplo irá imprimir as 22 linhas da imagem 1. 

A opção 3 do menu faz justamente isto, perguntando-lhe qual a 
imagem a listar. 

Ao final da listagem, digite: 

M para Menu 
C para Copy (impressora) 

P para próxima imagem 

Caso você queira imprimir a imagem por um comando direto do 
tipo PRINT 1$, sem usar o looping, use antes: 


7000 DIM l$(710) 

7010 FOR N=1TO 22 
7020 LET l$=l$+F$(1,N) 

7030 NEXT N 

A seguir, PRINT 1$ imprimirá toda a imagem. 
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4- LISTAR CÓDIGOS 

Os códigos ou caracteres alfanuméricos que representam os grá¬ 
ficos não são armazenados. Logo após a edição de uma linha os 
códigos são transformados em seus equivalentes símbolos gráfi¬ 
cos e armazenados na matriz F$(I,L,C). 

Caso lhe interesse, os códigos de uma imagem podem ser recu¬ 
perados e listados por esta opção, que pede o número da imagem 
a ser descodificada, ou melhor, codificada. 

A listagem dos códigos é feita pela conversão dos símbolos gráfi¬ 
cos armazenados em F$(I,L,C), em processo inverso ao da opção 

1 . 

Esta rotina é lenta, ainda que rodada em FAST. Após a conversão 
de cada linha, esta é mostrada. 

Ao final, digite: 

M para Menu 
C para Copy (impressora) 

P para próxima listagem. Continua a listar a próxima figura e não 
os códigos. 

5- GRAVAR 

Esta rotina permite gravar o programa e suas variáveis (imagens). 
Continua no menu após a gravação ou após a carga. 

6- DESENHAR 

Esta rotina permite desenhar diretamente no vídeo do micro 
usando o pixel de PLOT e UNPLOT ou qualquer caractere com 
PRINT AT. 

A imagem ao final é armazenada na variável F$ para posterior re¬ 
cuperação e impressão. 

Os usos e aplicações desta rotina são totalmente distintos e dife¬ 
rentes da opção 2. 

As facilidades de edição de “Desenhar no Vídeo’’ são: 

1. A impressão começa na posição 0,0 com PLOT 

2. Para comutar para PRINT Caractere digite C. Indica com inver- 
se space 


3. Para voltar para PLOT digite P. 

4. Para deslocar a posição de impressão sem escrever, digite A de 
Apagar. Vale igualmente com PRINT e PLOT. 

5. Para voltar a escrever digite E. Vale igualmente durante PRINT 
e PLOT. 

6. 0 deslocamento da posição de impressão é dado pelás teclas 

X f— T 

7. Durante PRINT, para mudar de caractere, digite o desejado, 
excluindo-se os de comando (C,P,A,E,F e.). O caractere digitado 
aparecerá no vídeo em sua forma inversa. Para retirar esta inver¬ 
são retire o + 128 existente a linha de número 766. Para voltar a 
inverse space NÃO digite SPACE,porque ocorrerá BREAK. Use o 

que voltará ao inverse space “a”. 

Caso, por esquecimento, você acione BREAK, NÃO digite CONT 
que inclui CLS e apagará o vídeo. Use GOTO'a linha indicada no 
canto inferior do vídeo, ao lado do código de reportagem de 
BREAK 01 

8. Ao término do desenho, digite F para armazenar a imagem na 
variável F$. 

9. Para recuperar e imprimir a imagem use a opção 3 do MENU. 

USANDO AS FIGURAS 

Se você já carregou ou pretende carregar alguma figura com o 
uso do programa Editor, eis algumas das possibilidades de apli¬ 
cação da(s) mesma(s): 

1- Simplesmente como estão, em Basic, listando-as no programa 
Editor ou criando programas a partir delas, como por exemplo: 
aula de geografia ou jogos com os mapas, figuras que "falam” 
enquanto uma mensagem é impressa, estórias em quadrinho, ta¬ 
peçaria, figuras geométricas, trigonometria, etc... Sempre com 
movimentos lentos ou pequena área de movimento. 

2- Com rotinas em código, inseridas no programa Editor, para 
produzirem movimentos rápidos como: cópia instântanea do ví¬ 
deo, scrool para a direita ou para a esquerda e outras que podem 
fazer os personagens dançarem, os tanques e trens se moverem. 
Çom o auxílio das rotinas no código da máquina, obtem-se movi¬ 
mentos rápidos de toda a imagem. 

As figuras inseridas com o programa Editor podem ser transpor¬ 
tadas para outros programas já previamente escritos, tanto por 
uma rotina em Basic como no código da máquina. 


42 


43 



USANDO AS FIGURAS SÓ COM BASIC 


A seguir propomos alguns exemplos práticos de utilização das 
imagens em Basic, como movimento (de lábios) com ou sem 
mensagem impressa, aula de Geografia, de Geometria, etc... 

Para jogos e movimentos você, inevitavelmente, deverá usar o 
ENTER GRAPHICS na versão em código, bem como as suas roti¬ 
nas adicionais, também em código. 

A utilização destes programas não requer maiores conheci¬ 
mentos além do Basic. 


EXEMPLO A — MOVIMENTO DE LÁBIOS 


ATENÇÃO 

As coordenadas AT 16,16; não correspondem ao elemento (16,- 
16) da matriz F$, porque os elementos da matriz se iniciam em 1 
(um) e as coordenadas de PRINT AT se iniciam em em 0 (zero). 

A posição da tela PRINT AT 16,16 corresponde ao elemento 
(17,17) da matriz, ou seja: F$ (1,17,17) eF$ (1,17,18) são elementos 
da matriz F$ que correspondem aos lábios inferiores do nosso 
personagem. I é o número da imagem. 

Isto é apenas para você le mbra r. Por ora vamos u sar d iretamente 
no vídeo PRINT AT 16,16; HE e PRINT AT 16,16; BB após a im¬ 
pressão da matriz F$. 

Acrescente ao programa ENTER GRAPHICS, versão BASIC, a ro¬ 
tina abaixo: 


1 REM NUNCR USE RUH - USE GOT 


O 1 


£ GOTO 10OQ 


•i >s ra o?» 

_i_ KJ KJ KJ 


1010 

1020 

1030 

1040 


1070 

1 0 O 0 

1090 

:• cr 


1 1 


3> rr 


fej U H L. 


n 


r r». jl r-t i 

XNPUT I 
FOR N=1 TO 22 
PRINT F $ (I,N) 
NEXT N 

1060 FOR N=1 TO 

PRINT RT 16,xo 
LET YU=RND * *RND 
PRINT RT 16 .» 16.i 


IMr 


rt i-r i_ i 


cr N-j 


10E4 


. U 


5 NEXT 


h I 
t *•» 


Propaganda de Escolas de Dança, Computação, Línguas, Avia¬ 
ção, etc... usando respectivamente as figuras do Eduardo Bus- 
queta, do Humanóide, do Charles Chaplin, do Santos Dumont, 
etc... 

Como o Basic é um tanto lento, não vamos tentar impor grandes 
movimentos às imagens. Se nos limitarmos apenas a mover os lá¬ 
bios, teremos velocidade até demais,sendo necessário um retar¬ 
do de tempo, como você verá. 

Conforme a ilustração da página 77, veremos que os lábios do 
Eduardo Busqueta (parte inferior) estão AT 1 6,16; com os carac¬ 
teres gráficos das teclas 7 e 1 que são HE- 

Para fazê-lo falar, basta alternarmos a impressão dos caracteres 
LtLR ; com os BTP , com algum retardo de tempo. 


EXEMPLO B — MENSAGEM COM O MOVIMENTO 
DE LÁBIOS 


Esta continuação da rotina anterior vai fazer com que o Eduardo 
Busqueta fique falando (movendo os lábios) com a mensagem 
“DIGITE UMA TECLA” impressa na tela. Digitando-se uma tecla, 
não vale BREAK, aparecerá a primeira linha da mensagem e, a ca¬ 
da tecla pressionada, a mensagem será trocada até a terceira li¬ 
nha, repetindo-se. 

A mesma coisa você poderá fazer com os outros personagens 
fornecidos. 

A seguir, a listagem a ser acrescida ao programa “ENTER GRA¬ 
PHICS”, versão BASIC, com a rotina do exemplo A: 
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1115 CL S 


104-5 LET YX=0 

1050 PRINT hT 21,0;“DIGITE UMR T 

L_ • L- H ti 

G®® LET N$ = INKEY$ 

I 3 -Lt N :p ~ THEN GOTO 1 ‘i i-ti 
1112 LET YX = YX + 1 x - L ^ 0 

1114 IF YX =2 THEN GOTO 1140 
IF VX=3 THEN GOTO 1160 

I 1 cl 0 r'R j. NT HT cl’ 1 0 ' • 1 y ~ -r~ pr t_j i 11 - 4 rj 

DEMONSTRHCfin ' " x ~ 1 J LH JhH 

1125 üOSUB 12O0 
1135 GOTO 1100 

1140 PRINT hT 2 i 0-" - F rr-, t r-r- 

. UM COMPUTADOR ? ' « " * ‘ ‘ ^ ^E 

II p’ ® ‘é ° 5 U B 12 0 0 
1155 bOTO 1100 

1150 P R 1 NT' RT 51,0' " | | r , rr rr- “ 

ER KDANCE ? ' ,, “ a u " uU c E - 


OU DE ER 


115 5 G Cf 3 UB 1200 
1150 GOTO 1015"' 

1 5 “10 5 Uf R T -c 1 " p i“; o 
1210 NEXT T 
1220 RETURN 
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EXEMPLO C — GEOGRAFIA 


Utilizando-se mapas fornecidos ou outros de sua autoria, pode¬ 
mos facilmente transformá-los em aula, teste, jogo ou simples 
ilustrações. 

Por exemplo: Carregue com o ENTER GRAPHICS o mapa do Bra¬ 
sil e suas regiões na ordem abaixo: 

IMAGEM N° DESCRIÇÃO 

UM BRASIL 

DOIS REGIÃO NORTE 

TRÊS REGIÃO NORDESTE 

QUATRO REGIÃO CENTRO-OESTE 

CINCO REGIÃO SUDESTE 

SEIS REGIÃO SUL 

Acrescente à gravação do ENTER GRAPHICS com os mapas aci¬ 
ma a rotina a seguir. É a simulação de um teste aleatório das re¬ 
giões. Você pode, por exemplo, fazer a mesma coisa com os es¬ 
tados e as capitais ou com os continentes e os países. 


1 REt-t NUNCfl U3E RUN 


USE GOT 


2 GOTO 1000 

ISO© PRINT "O BRhSIL E SUhS REGI 
Ü ES" 

1010 PRINT "UÜU PERGUNTAR 05 E5T 
hDOS DO BRASIL" 


1020 PR IN¬ 


DIGITE UNA TECLA" 


1030 LET N $ = INKEY$ 

104-0 IF N $ — * 1 THEN GOTO 1030 


•■} rs cr rs 1 

VJ •„> *iL» «_•! 


1060 PRINT M . . . . .UMA DEIXA , " 

1070 PRINT ,,"E5TE EH O BRASIL R 
EGIuNRL « « n n " 

1030 GOSUB 1600 

1090 FOR N-1 TO £2 
1100 PRINT F $ (I , N) 

1110 NEXT N 

11 -_j 0 G U 5 U B 15 00 

1150 DIM B$Í65 

1155 LET 6£í1)="BRASIL" 

1160 LET B $ (2) =*’ NORTE" 

1165 LET B$(3)-"NORDESTE" 

1170 LET ==" CENTRO-OESTE" 


i NORDESTE" 

) = " C É NT R O “ O E ST E 1 ‘ 
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EXEMPLO D — GEOMETRIA 


1175 LET BS (5) = ’ ‘ 5 U D E ST £ *' 
1180 LET BS (6 ) = M SUL" 

1500 CL5 

i .rs cr I cr~r — „ tkit* nhir-. cr . . 

-L cz. *•-' •_> I— í— i •_> — x i m ■ r>. H w r- •_> TiT. 

1510 POR N=1 Tu 55 

1550 PRINT E$Í5,N) 

1530 NEXT N 


154-0 

IRO 

p jr« t wr 

r P. J. í í 1 

RT 

5 

1 

. 0 : 

OURL E H PEG 

1550 

-r u ■ I—, t j —t— 

JL } ‘4 ’ 1 i i 

R S 





1560 

IF PS 

~ E« S 

(3 

j 

~r- :_ f t— 

5 ri p 

N GOTO 1300 

1570 

I 1 

PP INT 

i ) t~ 

1 

5 

.1 

J. 

,i kJ 

UOCE ERROU*. 

» « 

1 cr O 0 

GO SUB 

16 

00 




*1 '~~T [" 1 |"J| 

-Lc rt 1 

i™** ~t~r . 

tjl t_l *. M 

154 

0 




*i ~- ,r*i rs 
JL ST' vr* 

PP INT 

i _- T - 
n í 

, [i[ t 

1 

,0; “ 

PRPRBEN3. E 

H PE 

ilH 0 ‘ ‘ 

• r~T Hr 

. r». y 





1310 

y i_i .~t i_í Bs 

‘ 16 

00 




1350. 

G 0 S U B 

16 

00 




1330 

GOTO 

150 

0 




1600 

POR T 

_ /j 

T 0 


100 



1610 NEXT T 
1650 R ETURN 


As figuras geométricas básicas podem ser facilmente utilizadas 
em aulas ou testes. 

Digite as rotinas do capítulo II — Figuras Geométricas numera¬ 
das, como a seguir, SEM o programa ENTER GRAPHICS. 


ROTINA DO 

NUMERAR DE 

QUADRADO 

101 

A 190 

RETÂNGULO 

201 

290 

CÍRCULO 

301 

390 

TRIÂNGULOS EQUILÁTERO 

401 

490 

TRIÂNGULO OBTUSO 

501 

590 

TRIÂNGULO RETÂNGULO 

601 

690 


A seguir acrescente: 




rr 

L. 

cr -r ~r .. 

d. ! JL. - 

•T t. 1 1 

= ..l ri 

í P N l.-‘ -+• 6 r 1 j 



.L 


G 

OS UB 

t ‘~ "jr 

100 



,*t 

cr 

r-i 

r* 

t—\ -r u 1 —y— 
rr .1 í i i 

Pi í 

x o .» U . 1 U* U H L 

H 

cr t »~ 

! JL d* 

M 








“ST 1 

CTJ. 

0 

-r 

± 

r-n-U i 

x s 




Cl 

C7 

T 

cr v rh 

! .- J .. ld • 

• u r 

>. > í ’4 

$ TMEN GOTO 7 

r?j 

•c* 


.Jj 

*-x, 

tLJ 

P 

r—* -r i. : —n* 

!—>: ± \ 4 í 

hT 

13,0,"PRRRBEM 

c 

r - — 

LL 


i 4 :J2 


h ! f~< 1 IT 
i r* d* i 


4-0 

cr rs. r~ i -r 
•_.» hl. 1 d 

t? 0 U U ] U 1 

70 PR INT H 




r r?» • 

JL d* * KJ > 


t_ r\ r*. d< 


cr k rr c: 
l—. 1 4 ! 1.. 

fj ! i v f“i r"t í 

^ uj r n n 

} cr ~r »■ 

I— .iL. a a a 



~r cr 

._i 

GOTO 50 




100 

! cr T K 

1— dl 1 1 gi — 

»r.» d n u.-' r - T l.- d» 



1 y 0 

r-*. 1 -!*' i j r—, l I 

d i i J hr M 




rs ,~s 

HT 1 KJ 

f cr -T" h. 1 rt ' 

i— 1— * 1 H y — 

1 ' P: ET H N G U L O ‘ 

' 


530 

r*> PT! 1 ! 

r». 1— i «__> n. i ’h 




3 0 O 

í pr ~r k i i+ _ 1 

1— d. ! ! H rp -- 

_l r*. d- d> i__ d* 



-_j y 0 

PETUPN 




.■i rs rs 
"+* su kú* 

f cr nr ki ^ .... 1 
1_d í | M rp — 

"TRIÂNGULO 

{-*• .—- ( 1 -T- 1 

E Li ÜILH 

T E R 

-J l~T 17*5 

«4- t.- i 

PETUPN 




U 0 

( ~ "1" k 1 r+- 1 

1 — i i i rp ~ 

TP InN«yULu 

OBTU50 

t 1 

cr i”o j“^i 
i/i 

ncfi i r"« k i 

r*. t '..j t~>.; '-i 




uZ tTH :“?! 

LET N$ " 

' ’ T P~, T i~t k 1 i~ 1 l J t~t 
i r>. JL i 11 m >.r> d* d- d> 

r.CT "t V. ! {••*■ 
r>. i_i m i m Lr 

ULO 

690 

PETUPN 
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50 


PARTE 191 


ENTER GRAPHICS EM CÓDIGO 
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ENTER GRAPHICS EM CÓDIGO 


Este programa, versão em código, foi especialmente concebido 
para este livro pelo Engenheiro Gino Douglas de Carvalho, autor 
do livro “40 Rotinas em Linguagem de Máquina”. 

Apresenta todas as facilidades de edição e armazenamento da 
versão em Basic associada à velocidade da Linguagem de Máqui¬ 
na, além das seguintes possibilidades inexistentes em Basic: 

• grava as figuras independentemente do programa, assim co¬ 
mo também as carrega; 

9 permite ainda a cópia instantânea das 12 figuras armazenadas 
nas variáveis para a tela, simulando movimento. 

Tudo ainda pode ser usado com outras rotinas em código, como 
rodar o vídeo para a esquerda ou direita, inversor de vídeo, etc... 
fornecidas na listagem 4 ou com outras de sua autoria. 

RESUMO DAS ROTINAS FORNECIDAS 

LISTAGEM 1 — Programas em Basic para carregar os códigos 

(do ENTER GRAPHICS). 

LISTAGEM 2 — ENTER GRAPHICS, em código. 

LISTAGEM 3 — Programa em código para usar as figuras em ou¬ 
tros programas, previamente escritos. 
LISTAGEM 4 — Rotinas adicionais em código: 

Simular movimento 

Rodar o vídeo para a esquerda, para a direita 
Seroo! para cima em 1 coluna e 
Inversor de Vídeo. 
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Este é um programa totalmente escrito em linguagem de má¬ 
quina, possibilitando assim maior facilidade de Edição e uso das 
figuras deste livro. Para melhoi aproveitarmos das vantagens re¬ 
sultantes do emprego desta linguagem, este programa tem fun¬ 
ções diferentes da sua versão em Basic. 

Antes de falarmos sobre o programa propriamente dito, va¬ 
mos explicar como colocá-lo no computador. Sendo um progra¬ 
ma relativamente longo, com 1240 Bytes, todo o cuidado será 
necessário na digitação, pois somente um Byte errado poderá 
por tudo a perder. Para facilitar, Micron Software comercializa 
esse programa em cassete através do pedido incluso no final des¬ 
te volume. Se você observar a listagem 2, verificará que ela é fori 
mada por três partes principais: I o ) o endereço em hexadecimal 
(4082,408A,etc.); 2 o ) bytes dos códigos em si, também em hexa¬ 
decimal; 3 o ) um número decimal corresponde ao check-sum dos 
8 bytes anteriores. 

A existência do check-sum é que nos facilitará o encontro de 
qualquer erro de digitação. Para iniciarmos devemos criar uma 
linha REM com pelo menos 1240 caracteres. Para verificarmos se 
esta linha está correta, basta digitar PRINT PEEK 1651*PEEK 
16512 e se a resposta for1240 ou mais, estará correta. 

Em seguida digitamos o programa da listagem 1, que é um 
monitor para a entrada do programa da listgem 2. Para iniciar¬ 
mos a entrada de dados, digitamos RUN e, em seguida, o endere¬ 
ço desejado em Hexadecimal. Por exemplo, no início digitare¬ 
mos 4082. Este endereço deverá ser digitado com os 4 digitos ou 
não será aceito. Em seguida este endereço aparecerá no canto 
inferior da tela e poderemos digitar os 8 bytes da listagem, sem 
espaços entre eles, por exemplo: 

7676AF3222403255 

Seguido deNew-Line,Se não forem digitados os 16 caracteres 
eles não serão aceitos. Após alguns segundos aparecerá um nú¬ 
mero decimal após os bytes, devendo este número ser compara¬ 
do ao check-sum. Se eles forem iguais, os 8 bytes digitados esta¬ 
rão corretos, podendo prosseguir no endereço seguinte, que já 
estará no canto inferior da tela. 

Quando se está esperando a entrada dos 8 bytes, os seguin¬ 
tes comandos serão aceitos, chamados pela digitação do primei¬ 
ro caracter e new-line: 


S-STOP: Interrompe a execução do programa 

R-Recomeça: volta a pedir o endereço, recomeçando a partir 
deste endereço. 

E-ERRO: Caso o check-sum não esteja correto, digite este 
comando e o endereço anterior voltará a ser mostrado, devendo 
ser redigitados os 8 bytes. 

Como você pode ver, não é necessário digitar todo o progra¬ 
ma de uma só vez, pois podemos colocar os bytes a partir de 
qualquer endereço, sendo inclusive uma boa prática fazer varias 
gravações parciais conforme se vai digitando o programa. O úni¬ 
co cuidado a tomar será sempre digitar os códigos nos endere¬ 
ços indicados (listagem 2) para que o check-sum tenha válidade. 

Após totalmente montado, devemos deletar as linhas 10A a 
1090, deixando sómente a linha REM e efetuar uma gravação 
antes do teste. Para podermos utilizar o programa, devemos re¬ 
servar a área acima do RAMTOP para as doze figuras, através dos 
comandos: POKE 16388,0 e PÒKE 16389,94 seguindo-se por 
NEW e pela carga do programa do cassete. 

Para rodarmos o programa utilizaremos o comando RAND 
USR 16516. Caso esteja tudo correto, aparecerá o MENU nas 
duas linhas inferiores da tela, conforme mostrado abaixo: 

FIG VER-1 ALT-2 APG-3 LST-4 SV-5 
0 LD-6 SVT-7 LDT-8 COP-9 AN-0 

Sempre que estivermos no MENU bastará digitarmos NEW- 
LINE para voltar ao Basic. O comando RAND USR 16516 além de 
começar a execução também limpa a área acima do RAMTOP, 
onde ficarão as figuras. É indispensável que a primeira chamada 
seja feita através desta forma, para garantirmos que não existirão 
caracteres indesejáveis na área das figuras. Porém se tivermos 
feito várias figuras e, por um motivo qualquer, tivermos que retor¬ 
nar ao Basic, se utilizarmos RAND USR 16516, perderemos as fi¬ 
guras existentes. Devemos digitar o seguinte: 

10 POKE 16418,0 
20 RAND USR 16536 

Com isso, entramos no programa sem apagar as figuras já 
existentes, porém não deve ser utilizado, assim que carregamos 
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o programa. 

Vamos explicar agora as várias funções deste programa. Nós 
trabalhamos com o conceito de figura corrente, ou seja, a maio¬ 
ria das funções só terá efeito sobre a figura que estiver sendo 
mostrada no momento, que denominaremos de figura corrente. 
No canto esquerdo do MENU temos a seguinte identificação que 
mostra qual e a figura corrente: 

FIG 

0 

No caso a figura corrente é a de número 0, podendo ser utili¬ 
zadas 12 figuras, numeradas de 0 a 9, mais as figuras “A' e a figu¬ 
ra “ET. Para trocarmos de figura corrente utilizamos a função 1 
(VER-1). Dititando-se 1 e um número válido de figura, esta figura 
passará a ser a figura corrente. 

A função 2 (ALT-2) permite alterarmos a figura corrente, po¬ 
dendo inclusive modificá-la totalmente. É o comando que utiliza¬ 
remos para a colocação de novas figuras. Quando digitamos 2 a 
partir do MENU, aparecerá a figura corrente na tela.Na parte infe¬ 
rior aparecerá: Linha:00 Coluna: 00, e no canto superior esquer¬ 
do aparecerá um G piscante, que é o cursor. 

A indicação linha: 00 e coluna: 00 é a posição do cursor, po¬ 
dendo a coluna variar de 0 a 31, e a linha de 0 a 21. O "G” do cur¬ 
sor indica que estamos no modo Graphics. Se, por exemplo, digi¬ 
tarmos a tecla 1 aparecerá o caractere gráfico na posição 0,0-e o 
cursor estava na posição 0,1, conforme indicado abaixo. Note 
que não utilizamos a tecla Shift, e que existe auto repetição, 
assim como na versão em Basic. 

O cursor pode ser mudado para "I ", siginificando que pode¬ 
mos entrar com caracteres inversos, através de Shift 2, a voltar¬ 
mos para “N”, caracteres normais, através de Shift IPara voltar- 
rmos ao cursor “G”, basta digitar Shift 9. Podemos movimentar o 
cursor através das teclas Shift 5, Shift 6, Shift 7 e Shift 8, sendo 
que o movimento do cursor, não é destrutivo, podendo passar so¬ 
bre uma figura sem alterá-la. Para encerrarmos a Edição de uma 
figura devemos digitar New-Line e voltaremos ao MENU. 

A função 3 (APG-3) permite que apaguemos a figura corren¬ 
te, bastando digitarmos 3 e respondermos “S" à pergunta "quer 
realmente apagar (S/N)’’ que aparecerá na parte inferior do ví¬ 
deo, retornando em seguida ao MENU. Se digitarmos "N' retor¬ 


naremos ao MENU sem apagar a figura corrente. 

A função 4 (LIST-4) permite que a figura corrente seja listada 
conforme seus códigos. Por exemplo o caractere gráfico será lis¬ 
tado como a letra “Q”. Os caracteres inversos não serão altera¬ 
dos e os caracteres normais não serão mostrados. Para retornar 
ao MENU digite qualquer tecla. 

A função 5 (SV-5) permite gravar a figura corrente no cas¬ 
sete. Após digitarmos 5, aparecerá uma mensagem solicitando 
que seja preparado o gravador e pressione qualquer tecla para 
iniciar a gravação. Esta tem os 5 segundos usuais de silêncio no 
início, seguidos de aproximadamente de 15 segundos da grava¬ 
ção da figura propriamente dita. Após o SAVE retorna ao MENU. 

A função 6 (LD-6) permite que façamos o lado de uma figura 
gravada no cassete.com a função 5 (SV-5), colocando-a na figura 
corrente, apagando o seu conteúdo anterior. Aparecerá a mensa¬ 
gem para preparar o gravador e pressionar qualquer tecla, para 
iniciar o LOAD. Após o LOAD retornamos ao MENU. 

A função 7 (SVT-7) permite que salvemos no cassete todas as 
12 figuras ao mesmo tempo, sendo o procedimento similar ao da 
função 5 (SV-5). 

A função 8 (LDT-8) permite que recuperemos as 12 figuras 
salvas pela função 7 (SVT-7), sendo o procedimento similar ao da 
função 6 (LD-6). Tanto a função 7 (SVT-7) como a função 8 
(LDT-8) alteram a figura corrente para a figura 0. 

A função 9 (COP-9) permite que copiemos a figura corrente 
em qualquer outra figura, bastando digitar 9 e em seguida o nú¬ 
mero da figura que irá receber a cópia da figura corrente. Em se¬ 
guida retornamos ao MENU, com a figura corrente sendo manti¬ 
da e a cópia sendo efetuada na figura especificada. 

A função 0 (AN-0) permite que façamos uma simulação de 
animação, mostrando sequencialmente todas as 12 figuras na te¬ 
la, até que seja digitado qualquer tecla. A figura corrente após o 
retorno ao MENU, poderá ser qualquer uma das 12 figuras. 

Como podemos verificar, as 10 funções deste programa per¬ 
mitem uma grande versatilidade na edição e manipulação das fi¬ 
guras contidas neste livro, sendo de especial destaque a possibi¬ 
lidade de gravarmos figuras individuais no cassete, resultando 
em gravações compactas e com menor possibilidade de erros e 
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listagem 1 


tempo de duraçao. 

Para que possamos utiiizarestasfiguras gravadas no cassete 
em programas em Basic, foi desenvolvido o programa da lista¬ 
gem 3. Para entrarmos com este programa, devemos criar uma li¬ 
nha REM com pelo menos 128 caracteres e utilizaremos o pro¬ 
grama da listagem 1, conforme explicado anteriormente. Depois 
do programa montado, este deverá ser gravado em cassete, an¬ 
tes de ser testado. Depois que fizermos a cópia poderemos testar 
com o comando: 

RAND USR 16516 

Com este comando, o RAMTOP será abaixado para 32500, a 
rotina será colocada a partir deste endereço e será executado um 
NEW, voltando o comando para o Basic. Para carregarmos uma 
só figura, devemos digitar os seguintes comandos: 

POKE 32504,6 
POKE 32557,192 
POKE 32558,2 
CLEAR 
DIM A$(704) 

RAND USR 32500 

O CLEAR é necessário para assegurarmos que a matriz A$ 
seja a primeira a primeira na área de variáveis. Para carregarmos 
todas as 12 figuras devemos digitar os sequintes comandos: 

POKE 32504,10 
POKE 32557.0 
POKE 32500,33 
CLEAR 

DIM F$(12,22,32) 

RAND USR 32500 

Depois de carregada a matriz A$, no caso de uma figura, ou a 
matriz F$, no caso de 12 figuras, é importante evitar o uso dos co¬ 
mandos RUN ou CLEAR, pois senão as figuras serão apagadas. 
Deve ser notado que, se a matrizes não estiverem corretamente 
dimensionadas (A$(704) ou F$(12,22,32) ), poderemos perder o 
controle do computador. 


10 CLS 

20 PRINT "ENDEREÇO" 

30 INPUT 1$ 

40 IF LEN I$<>4 THEN GOTO 30 
50 LET 1=(CODE I$-28)*4096+(CO 
DE I#(2)-28)*256+(CODE 1$(3)-28) 
*16+C0DE I*<4>-28 
60 SCROLL 
70 PRINT I$ 5 " 

80 INPUT X* 

90 IF X$="S" THEN STOP 
100 IF X$="R" THEN GOTO 10 
110 IF X*="E" THEN GOTO 260 
120 IF LEN XÍ016 THEN GOTO 90 
130 PRINT X*;" "5 

140 LET A=0. 

150 FOR J =1 TO 8 
160 LET Y*=X*< TO 2) 

170 LET X*=X$<3 TO > 

180 LET X=(CODE Y*-28>*16+C0DE 
Y$(2)-28 
190 POKE I,X 
200 LET 1 = 1+1 
210 LET A=A+X 
220 NEXT J 
230 PRINT A 
240 GOSUB 1000 
250 GOTO 60 
260 PRINT AT 21,0;" 

II 

270 LET 1=1-8 
280 GOSUB 1000 
290 PRINT AT 21,0; 

300 GOTO 70 
1000 LET 1 $="" 
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1010 LET X-I 

1020 FOR K=1 TO 4 

1030 LET X1=IMT (X/16) 

1040 LET X2=X-16*X1 

1050 LET IT—CHR-T (X2+28)+I$ 

1060 LET X~X1 

1080 NEX T K 

1090 RETURN 
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LISTAGEM 2 
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USANDO AS FIGURAS COM LINGUAGEM 

DE MÁQUINA 


Os melhores efeitos no vídeo só podem ser obtidos a partir de 
programas diretamente na linguagem da máquina (microproces- 
sadora) capazes de produzir a velocidade que programas inter¬ 
pretados em Basic não dispõem. 

O programa ENTER GRAPHICS, em código, é o melhor começo e 
uma ótima ferramenta. Além das facilidades de edição possui ro¬ 
tinas adicionais, como para a gravação e carga individual das fi¬ 
guras, completando-se a sua versatilidade com as rotinas das 
listagens. 

Por último, relembro que, pará utilizar as rotinas propostas a se¬ 
guir, bem como o próprio programa ENTER GRAPHICS em códi¬ 
go, não é necessário conhecimento de programação Assembly 
Z-80. 


Para mostrarmos algumas das aplicações das figuras dentro 
de programas em Basic, incluímos a listagem 4, que consiste em 
3 rotinas escritas em linguagem de máquina, que nos possibili¬ 
tam rodar o vídeo para a esquerda, rodar o vídeo para a direita e 
uma simulação de animação, mostrando sequencialmente as 12 
figuras no vídeo. 

Para colocarmos este programa no computador devemos 
criar uma linha REM com pelo menos 160 caracteres e, com o au¬ 
xílio do monitor da listagem 1, digitamos o programaAntes de 
testar devemos fazer uma cópia. 

Para rodarmos a primeira rotina, devemos colocar o número 


da linha em que começaremos a rodar o vídeo para a esquerda na 
posição 16516. E o número da última linha a ser rodada na posi¬ 
ção 16517. Os números de linha permitidos variam de 0a 23, não 
sendo checado se estes números estão dentro da faixa permitida 
e se o número inicial é menor que o inicial. Depois de “POKA- 
DOS" os valores, chamados a rotina através de RAND USR16518. 

Por exemplo, se colocarmos “0” em 16516e “23” em 15517, 
quando chamarmos a rotina através de RAND USR 16518, todas 
as 24 linhas do vídeo serão rodadas uma posição para a esquer¬ 
da, sendo o conteúdo da margem esquerda copiado na margem 
direita. 

Mas se colocarmos “9” em 16516e “12” em 16517, somente 
aslinhas9,10,11 e 12 serão rodadas, sendo que o resto do vídeo 
permanece inalterado. 

Para a segunda rotina, rodar o vídeo para a direita, o procedi¬ 
mento é idêntico somente variando o endereção de chamada, 
que é executada pelo comando RAND USR 16567. 

Para utilizarmos a terceira rotina, devemos primeiro ter di¬ 
mensionado uma matriz F$(12,22,32) e esta matriz deverá ser a 
primeira na área de variáveis. A chamada será atravós de RAND 
USR 16622. E, a cada chamada, será copiado no vídeo uma figura 
de numeração maior que a anterior. Se quiser começar por uma 
figura específica, basta colocar na posição o seu número, na fai¬ 
xa de 1 a 12. 

Para a quarta rotina, inversor de vídeo, bastarão comando RAND 
USR 16671 e, o vídeo será invertido. 

Para a quinta rotina, simulação de tiro, devemos colocar o núme¬ 
ro da coluna na posição 16716 e o número da linha na posição 
16717, pelo comando POKE. A rotina será chamada pelo coman¬ 
do RAND USR 16692. 

Na primeira chamada o caractere que estiver na posição indicada 
será copiado na linha superior, e a posição original será apagada. 
Chamando-se esta rotina repetidas vezes o caractere subirá até 
sumir no topo do vídeo. 
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EXEMPLO A — ANIMAÇÃO 


O próprio programa Enter Graphics, versão em código, possui 
uma rotina para animação. Opção 0 do Menu. Um bom exem¬ 
plo e fácil de entrar é com os bonecos da página 91. 

Usando-se apenas os quatro da primeira linha e o primeiro da 
esquerda da segunda linha, entre-os no Enter Graphics como 
figuras 0, 1, 2, 3 e 4, sempre na mesma posição. A seguir 
usando a opção 9 do Menu, que copia a figura corrente-em 
outra figura, complete ac demais usando as anteriores como a 
seguir: 5 e 6 igual a 4, 7 igual a 3, 8 igual a 2, 9 igual ale AeB 
igual a 0. As figuras iguais em seguida, 4, 5 e 6 e A, Be0 visam 
uma pequena parada nestas posições. 

Teste a animação pela opção 0. 

Mesmo que você use figuras com a tela completa a velocidade 
será igual a este exemplo, pois a opção 0 AN copia a tela 
completa. 


EXEMPLO B: MOVIMENTOS DIVERSOS 


Este outro exemplo, toma “uma determinada imagem impressa, 
e desloca-a através do vídeo, quer seja para cima, para baixo ou 
para os lados, o vídeo todo, uma parte, ou mais de uma parte. 

Comece com a listagem 1 das páginas 59 e 60, carregando os có¬ 
digos da listagem 4, página 68, sem o programa Enter Graphics. 

Esta rotina, fará com que um tanque de guerra fique passando 
pela tela da esquerda para a direita. A qualquer tecla pressionada 
(exceto Break) um míssel é disparado. Se o tanque for atingido é 
dada a explosão pela inversão do vídeo 4 vezes consecutivas. Ao 
final de 10 tiros é dado o número de acertos e erros com a inver¬ 
são do vídeo. A dectetação do ponto de encontro ou explosão é 
dado pela leitura da variável Current Caracter, nos endereços 
16398 e 16399 a linha n° 1605. 
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De qualquer forma, isto é apenas um exemplo de o que se pode 
fazer “com os desenhos e as rotinas da listagem 4”. Espero que 
você deseje, não tudo mastigado, mas os subsídios para elaborar 
seus próprios programas animados. 

A figura das linhas 1 100 a 112° é a primeira da página 98, 

noo PRiNT 

mo print - nmaBH f 

1120 PRINT 

1121 LET E»0 

1122 PQKE 16516,0 

1123 POKE 16517,2 

1124 LET A-0 

1125 LET S=0 
1130 LET T=0 
1135 RAND 

\136 LET R=INT <RND*10> 

1140 PRINT AT 21,R$ " + " 

1142 POKE 16716,R 
1144 POKE 16717,21 
1250 RAND USR 16518 
1260 IF INKEY#< > M " THEN LET S=1 
1280 IF PEEK 16717=3 THEN GOTO 1 
600 

1290 IF S=1 THEN GOSUB 1400 

1300 GOTO 1250 

1330 GOTO 1135 

1400 RAND USR 16692 

1420 RETURN 

1500 FOR Z=1 TO 8 

1510 RAND USR 16671 

1520 NEXT Z 

1522 LET A=A+1 

1525 IF T=19 THEN GOTO 1125 

1530 RETURN 

1600 PRINT AT 3,R$" ”f 

1605 LET D«PEEK <(PEEK 16398+256 

♦PEEK 16399)—34) 

1610 IF DOO THEN GOSUB 1500 

1 A^f» I PT F=P+-1 

1625 IF E=10 THEN GOTO 1650 
1630 GOTO 1125 

1650 PRINT AT 10,5$ M FORAM DEZ CH 
ANCES" 

1660 PRINT AT 12,2$“...E VOCE AC 
ERTOU ”;A 

1670 RAND USR 16671 
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PARTE IV 


OS DUZENTOS DESENHOS 



OS 200 DESENHOS 


Entre as figuras fornecidas neste capítulo espero que você en¬ 
contre a que deseja. Em todo caso, se não encontrar, certa¬ 
mente nos outros capítulos você obterá um meio de videomicrar 
a sua figura. 

Quanto às figuras fornecidas, você observará que na mesma pá¬ 
gina, a mesma figura é representada por letras e/ou números das 
teclas dos respectivos símbolos gráficos. 

A razão de utilizarmos esta codificação intrínseca ao teclado Sin¬ 
clair, é simples de compreender. Vejamos a espaçonave abaixo: 


É formada por quais caracteres gráficos? 

Seria taffi 5i OU EffEH ? 

Quadriculando-se a imagem é possível a identificação dos carac¬ 
teres, mas daria para lê-los se fossem soletrados, ditando-se e 
identificando-os rapidamente no teclado? 

Por exemplo: o que você prefere, ler ou digitar: 

ou “1234567 ’’ 


Antes de tentar o seu modo tente o nosso. Veja como entrar é 
usar figuras a partir do programa ENTER GRAPHICS, nas versões 
Basic e Linguagem de Máquina. 

Observação: A letra P, nas listagens a seguir, podendo ser digita¬ 
da nos programas Enter Graphics, significa um inverse space. 
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MICRON ELETRÔNICA COM IND LTDA 

CAIXA POSTAL 100 

12200 SAO JOSE DOS CAMPOS - SP 


PEDIDO DE MATERIAL. 


Quant. 

DISCRIMINAÇÃO 

Unit. 

TOTAL 





































TOTAL + 10% 



Incluso cheque n°_c/banco_ 

Remetente_ 

End_ 

CEP _Cidade_Est. 




















































SOFTWARE PARA 
MICROCOMPUTADORES SINCLAIR 

MICRON SOFTWARE 

O PROGRAMA ENTRE GRAPHICS EM CÓDIGO, USADO NESTE 
VOLUME, COM AS ROTINAS ADICIONAIS DA LISTAGEM 4 EM 
UM UNICO CASSETTE POR APENAS 1 ORTN 


ENTER GRAPHICS 

Programa em código com facilidades de edição para imagens 
com caracteres gráficos. Armazena até 12 figuras de 22 linhas. 
Possibilita alterações futuras, apagar, listar, gravação e carga 
das imagens, independentemente do programa e ainda simula 
movimento, copiando instantaneamente as doze imagens para o 
vídeo. 


A LISTAGEM 4 

Inclusa no ENTER GRAPHICS, compõe-se de rotinas extrema¬ 
mente úteis para elaboração de jogos. Simulam movimento, ro¬ 
dam o vido para a esquerda ou direita, scrool de 1 coluna para 
cima (tiro) e inversor de vídeo. 


BLOCO 

PARA DESENHO 


Bloco para Mapeamento do Vídeo Sinclair. 

50 folhas tamanho ofício com duas telas de 22 linhas por folha, 
por apenas 0,3 ORTN. 

Apresenta, por folha, uma tela com 22x32 posições e outra de 
44x64 posições. Contém ainda uma listagem ampliada dos sím¬ 
bolos gráficos com as teclas de localização. 

As páginas da parte IV deste volume são deste bloco com 
redução de 45%. 



SOFTWARE PARA 
MICROCOMPUTADORES SINCLAIR 

ZX SOFTWARE 

OS QUATRO MELHORES PROGRAMAS EM CÓDIGO, JAMAIS 
PRODUZIDOS PARA UM SINCLAIR EM UM ÚNICO CASSETE. 
POR APENAS 1,5 ORTN. TODOS PARA 16K DE RAM, COM 
SLOW 

ASSEMBLER 

Escreva os seus programas em código, usando diretamente os 
mnemónicos do Z80 com este Editor e Monitor de Assembly. In¬ 
terpreta todas as instruções do Z80. Oferece excelentes facilida¬ 
des de edição, manipulação do cursor, códigos de erro, entrada 
de texto, números, labeis, repetição de tecla, etc... 

DISASSEMBLER 

Lê códigos no Assembly do Z80. Fornece os endereços em deci¬ 
mal, os códigos em hexadecimal seguidos dos mnemónicos 
completos. Interpreta todas as instruções do Z80. 

COMPILER 

Transforme instantaneamente os seus programas em Basic em 
programas em código, usando o Compiler. Aceita quase todos os 
comandos do Basic Sinclair e passa a rodar os programas até 50 
vezes mais rápido. 

MONITOR 

Programa para estudo de programas em código. Permite listar a 
Memória, Registers e Flags. Pode-se ainda introduzir Break- 
points, converter Hex para Decimal, decimal para Hex etc... 

Distribuído por: 


PUBLICAÇÕES 

MICRON ELETRÔNICA 


PARA MICROCOMPUTADORES 



SINCLAIR É MARCA REGISTRADA DE SINCLAIR RESEARCH LTD. 


® 200 DESENHOS PARA TK E CP200 

Mais de 200 desenhos para jogos e ilustrações, codificados. 

Programas para: edição dos desenhos codificados; cópia instantânea do 
Display, simulando movimento; transposição de vídeo entre programas, etc... 
Ensina as técnicas de vídeo, mapeamento, movimento, etc... 


0 40 ROTINAS EM LINGUAGEM DE MÁQUINA 

Rotinas para aumentar o desempenho de seus programas em Basic ou em 
Linguagem de Máquina. Soma, Subtração, Multiplicação e Divisão de sfrings e 
números binários Scrool e rodar o vídeo em todas as direções, etc... 


• HARDWARE SINCLAIR 

Led Monitor, Reset, Fonte, Superaquecimento, Monitor de Vídeo, Interfacing a 
PIO, Expansão interna de RAM de 2, 4, 8 e 16K, Portas in/out, Teclado, Lay-out 
dos micros Sinclair e dos circuitos impressos, incluindo esquema dos micros 
Sinclair ZX. 


MICRON ELETRÔNICA 



m 30 JOGOS PARA TK82 E CP200 

Damas — Labirinto — Enterprise — Golfe — Velha — Visita ao Castelo — Cas- 
s j no _ Roleta Russa — Corrida de Cavâtos — Vinte e Um — Cubo Mágico — 
Senha — Banco Imobiliário — Forca — Dàdos — Invasores — etc. 

PROGRAMAS NO CÓDIGO DA MAQUINA 
Inversão de Vídeo — Som por Software — LabiHpto — Destrava Soft. 


m CÓDIGO DE MÁQUINA PARA TK E CP200 

Números Binários e Hexadecimais — Arquitetura do Z80 Editando em Codi- 
qo — Programa para Edição — As Instruções do Z80 em Exemplos Sub-roti- 
nas da ROM — A ROM de 8K — Dicionário das Instruções — HEX X Mnemóni¬ 
cos __ Hex X Decimal — Incluindo os Programas: Scroll — Save Display no 
Ram Top — Contadores de Tempo ou Ponto — DataFile — Renumber Labi¬ 
rinto — Som por Software — Micron Pao Bombardeio, etc... 


Q DICIONÁRIO DO BASIC SINCLAIR 

Para os micros ZX81, NEZ8000, CP200, TK82C e TK83, TK85, RINGO, AS1000, 
etc... Reune todas as Instruções — Funções — Operadores e Caracteres descri¬ 
tos e exemplificados em ordem alfabética. Inclui Divisão do Basic Sinclair — 
Convertendo outros Basics — Contando os Bytes — Economizando Memória. 


0 APLICAÇÕES SÉRIAS PARA TK85 E CP200 

Quem é Sinclair — Convertendo outros Basics — Contando os Bytes Econo¬ 
mizando Memória — Fluxogramas — Top Down — Erros da ROM Conhe¬ 
cendo a Impressora — Chaining Programas — Sub-Rotinas em Cassete — 
Folha de Pagamento — Balancete — Correção Monetária do Imobilizado — 
Das Contribuições do IAPAS — Contas a Receber — Cadastro de Clientes 
Conta Bancária — Correção de Provas — Processador de Textos Estatística 
— Custo — Orçamento Doméstico — Ramtoper em Código — etc... 


• 45 PROGRAMAS PRONTOS PARA RODAR EM TK82C E NE Z8000 

Arquivos — Estoque — Piano Contábil — Folha de Pagamento — Agenda Tele¬ 
fônica — Caça ao Pato — Trilha — Jogo da Velha — Forca — pado Tabelas — 
Tabuadas —Conversão de Coordenadas — Média — Progressão Tabela Pri- 
ce — Fibonacci — Depreciação — Renumerador de Linhas em Código — Etc... 



